home *** CD-ROM | disk | FTP | other *** search
/ Die Speccy' 97 / Die Speccy' 97.iso / amiga_system / the_aminet / comm / mail / netmail_13.lha / NetMail / Drivers / AmiPOP.mailget next >
Text File  |  1995-09-30  |  1KB  |  37 lines
  1. /*
  2. ** $VER: AmiPOP.mailget 1.3 (30.9.95)
  3. ** Copyright (c) 1995 Riccardo Solmi
  4. **
  5. */
  6.  
  7. OPTIONS RESULTS
  8. OPTIONS FAILAT 21
  9. PARSE ARG email, user, pwd, host, mbox, flags
  10.  
  11. flags = UPPER(flags)
  12. IF user = "" | pwd = "" | host = "" | mbox = "" THEN RETURN 1
  13.  
  14. cmd = 'AmiTCP:bin/AmiPOP'
  15. IF ~EXISTS(cmd) THEN DO
  16.    cmd = GetVar('NetMail/AmiPOPCmd')
  17.    IF cmd = 0 | ~EXISTS(cmd) THEN DO
  18.       ADDRESS COMMAND 'SetEnv NetMail/AmiPOPCmd `Which "AmiPOP"`'
  19.       cmd = GetVar('NetMail/AmiPOPCmd')
  20.       IF cmd = 0 THEN DO
  21.          ADDRESS COMMAND 'SetEnv NetMail/AmiPOPCmd `RequestFile Title "Select AmiPOP command" Noicons`'
  22.          cmd = GetVar('NetMail/AmiPOPCmd')
  23.          IF cmd = 0 | ~EXISTS(cmd) THEN RETURN 2
  24.          ADDRESS COMMAND 'Copy QUIET ENV:NetMail/AmiPOPCmd ENVARC:NetMail/AmiPOPCmd'
  25.       END
  26.    END
  27. END
  28.  
  29. parms1 = 'Username "'user'" Password "'pwd'" POPHost "'host'" Mailbox "'mbox'"'
  30. parms2 = 'APPEND QUIET ONCE'
  31. IF INDEX(flags, 'LEAVE') = 0 THEN parms2 = parms2 'DELETE'
  32. parms2 = parms2 'NOWINDOW'
  33.  
  34. ADDRESS COMMAND '"'cmd'"' parms1 parms2
  35.  
  36. RETURN RC
  37.